N fx:
4
 0
192
432
1
50
0
0
0
0
0
0
0
0
 1
552
416
0
0
0
0
0
0
0
0
0
0
 258
440
432
' AFTER EDIT DO SAVE PROJECT BEFORE RUN %vbCr%
' MAINTAIN the Strucure and edit mainly only inside '***'%vbCr%
' Input is INP() Array%vbCr%
' Output is OUT() Array%vbCr%
%vbCr%
' You can use custom parameter P1 to P5%vbCr%
%vbCr%
%vbCr%
' --- Absolutely Don't touch code from Here%vbCr%
%vbCr%
Sub Process(W%comma% H%comma% INP%comma% OUT%comma% P1%comma% P2%comma% P3%comma% P4%comma% P5)%vbCr%
Dim X %vbCr%
Dim Y %vbCr%
ReDim OUT(W%comma% H)%vbCr%
%vbCr%
' --- TO HERE%vbCr%
%vbCr%
Dim X2%comma% Y2%vbCr%
Dim S%vbCr%
For X = 1 To W-1%vbCr%
       For Y = 1 To H-1%vbCr%
'      *** Your Main Code Here -----------%vbCr%
       S=0%vbCr%
       For X2 = X - 1 to X + 1%vbCr%
       For Y2 = Y - 1 to Y + 1%vbCr%
            S = S + INP(X2%comma% Y2)%vbCr%
       Next%vbCr%
       Next%vbCr%
       S = S * 0.111111111%vbCr%
%vbCr%
       OUT(X%comma% Y) = INP(X%comma% Y) +(INP(X%comma% Y) - S) * P1* 0.004%vbCr%
%vbCr%
'       ***-------------------------------%vbCr%
%vbCr%
       Next%vbCr%
Next%vbCr%
%vbCr%
End Sub%vbCr%

1000
0
0
0
0
0
0
0
0
 7
320
432
0
50
50
50
0
0
0
0
0
0
Nlinks
7
-
1
1
-
2
1
-
2
1
-
2
1
-
3
1
-
2
1
-
1
1
-
0
3
-
2
2
-
0
3
-
3
3
-
0
3
-
1
1
-
3
2
EXTRA
0.3.2795
SCRIPT TEST 03.txt
Testing Script .... Very Local Details tweakable with Parameter N 1

X
X
X
X
